function test_segmentacion(imagen)
    tol  = 40;
    step = 8;
    
    display('lectura data ');    
    data = fopen('perceptron.mat','r');
    
    if(data > -1)
        fclose(data);
        load('perceptron.mat','net');
    else
        net = 0; %[0 0];
    end
    
    display('OK');
      
    display('conversion imagen ');
%     se = strel('disk',8);
%     %se  = ones(3,3);
    rgb = imread(imagen);
    RGB = rgb;
  
%     RGB = imerode(rgb, se);
%     RGB = imdilate(RGB, se);
    HSV = rgb2hsv(RGB);
    
%     figure(12) ,imshow(RGB), title('Imagen Trabajada');
%     figure(13) ,imshow(HSV), title('Imagen Convertida');
%     figure(14) ,imshow(HSV(:,:,1)), title('Imagen H');
%     figure(15) ,imshow(HSV(:,:,2)), title('Imagen S');
%     figure(16) ,imshow(HSV(:,:,3)), title('Imagen V');
%     
% 	figure(8), plot3(HSV(:,:,1), HSV(:,:,2), HSV(:,:,3), '.', 'color', 'r');
% 	xlabel('Canal H');
% 	ylabel('Canal S');
% 	zlabel('Canal V');
% 	figure(5),imhist(HSV(:,:,1)), title('H');
% 	figure(6),imhist(HSV(:,:,2)), title('S');
% 	figure(7),imhist(HSV(:,:,3)), title('V');

    display('OK');
        
    display('segmentacion de imagen ');
    
    mat = segmentacion(rgb,RGB,HSV,net,step)
    display('OK');
    
%     negro  = imread('negro.jpg');
%     blkMap = zeros(height,width);
%     negro(:,:,1) = uint8(blkMap);
%     negro(:,:,2) = uint8(blkMap);
%     negro(:,:,3) = uint8(blkMap);
%     img = CreaImagen3(mat,negro,step);

    height = size(rgb,1);
    width  = size(rgb,2);
    img    = CreaImagen(mat,height,width);
    figure(17) ,imshow(img), title('Imagen Filtrada');
    
    display('OK');
end